kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
View(kickData)
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
air <- mean(kickData$Air)
heliumSD <- sd(kickData$Helium)
### Main Script ###
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- range(kickData$Air)
heliumRange <- range(kickData$Helium)
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin,
airRange),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin,
heliumRange))
View(kickSummary)
rownames(kickSummary) <- c("Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
### Main Script ###
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- range(kickData$Air)
heliumRange <- range(kickData$Helium)
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin,
airRange),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin,
heliumRange))
rownames(kickSummary) <- c("Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
rownames(kickSummary) <- ("Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
rbind(kickSummary) <- c("Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
row.names(kickSummary) <- c("Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
### Main Script ###
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- range(kickData$Air)
heliumRange <- range(kickData$Helium)
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin,
airRange),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin,
heliumRange))
rownames(kickSummary) <-c("Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
rownames(kickSummary)<-c("Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
rownames(kickSummary)<-c("Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
rownames(kickSummary)<-c(,"Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
rownames(kickSummary)<-c(NULL,"Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
rownames(kickSummary)<-c("","Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
### Main Script ###
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- range(kickData$Air)
heliumRange <- range(kickData$Helium)
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin,
airRange),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin,
heliumRange))
rownames(kickSummary)<-c("","Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
View(kickSummary)
View(kickSummary)
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- range(kickData$Air)
heliumRange <- range(kickData$Helium)
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin,
airRange),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin,
heliumRange))
### Main Script ###
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- range(kickData$Air)
heliumRange <- range(kickData$Helium)
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin,
),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin,
))
### Main Script ###
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- range(kickData$Air)
heliumRange <- range(kickData$Helium)
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin
),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin
))
View(kickSummary)
### Main Script ###
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- range(kickData$Air)
heliumRange <- range(kickData$Helium)
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin,
airRange),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin,
heliumRange))
### Main Script ###
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- airMax - airMin
heliumRange <- heliumMax - heliumMin
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin,
airRange),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin,
heliumRange))
rownames(kickSummary)<-c("","Mean",
### Main Script ###
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- airMax - airMin
heliumRange <- heliumMax - heliumMin
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin,
airRange),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin,
heliumRange))
rownames(kickSummary)<-c("Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
### Main Script ###
kickData <-read.csv("Kicks.csv", header=TRUE, stringsAsFactors = FALSE)
airMean <- mean(kickData$Air)
heliumMean <- mean(kickData$Helium)
airSD <- sd(kickData$Air)
heliumSD <- sd(kickData$Helium)
airMedian <- median(kickData$Air)
heliumMedian <- median(kickData$Helium)
airMax <- max(kickData$Air)
heliumMax <- max(kickData$Helium)
airMin <- min(kickData$Air)
heliumMin <- min(kickData$Helium)
airRange <- airMax - airMin
heliumRange <- heliumMax - heliumMin
kickSummary <- data.frame("Air" = c(airMean,
airSD,
airMedian,
airMax,
airMin,
airRange),
"Helium" = c(heliumMean,
heliumSD,
heliumMedian,
heliumMax,
heliumMin,
heliumRange))
rownames(kickSummary)<-c("Mean",
"S.D",
"Median",
"Max",
"Min",
"Range")
View(kickData)
shapiro.test(kickData)
shapiro.test(kickData$Air)
shapiro.test(kickData$Helium)
boxplot(kickData$Air)
boxplot(kickData$Helium)
